Vigilancia Entomológica con Ovitrampas en Oaxaca

Jurisdicción Sanitaria 01 Valles Centrales

1 Indicador Entomológico por Ovitrampas ó Casa

1.1 2024

Code
path <- "/Users/felipedzul/Dropbox/CENAPRECE/2024/20_oaxaca"
deneggs::ovitraps_occupancy_abundancy(path_ovitraps  = path,
                                      scale = "ovitraps")

1.2 2025

Code
path <- "/Users/felipedzul/Dropbox/CENAPRECE/2025/20_oaxaca"
deneggs::ovitraps_occupancy_abundancy(path_ovitraps  = path,
                                      scale = "ovitraps")

2 Indicador Entomológico por Manzana

2.1 2024

Code
path <- "/Users/felipedzul/Dropbox/CENAPRECE/2024/20_oaxaca"
deneggs::ovitraps_occupancy_abundancy(path_ovitraps  = path,
                                      scale = "blocks")

2.2 2025

Code
path <- "/Users/felipedzul/Dropbox/CENAPRECE/2025/20_oaxaca"
deneggs::ovitraps_occupancy_abundancy(path_ovitraps  = path,
                                      scale = "blocks")

3 Mapa de la Abundancia de Huevos

3.1 2024

3.1.1 Semana 10

Code
# Paso 1. definir la ruta de la carpeta
path_vect <- "/Users/felipedzul/Dropbox/CENAPRECE/2024/20_oaxaca"
path_coord <- paste(path_vect, "DescargaOvitrampasMesFco.txt", sep = "/")

# Paso 2. definir el resto de argumentos y aplicar la función
deneggs::eggs_risk(path_vect = path_vect,
                   path_coord = path_coord,
                   weeks = 12,
                   locality = c("Oaxaca De Juárez",
                                "Santa Lucía Del Camino"),
                   risk = FALSE)

3.1.2 Semana 25

Code
# Paso 1. definir la ruta de la carpeta
path_vect <- "/Users/felipedzul/Dropbox/CENAPRECE/2024/20_oaxaca"
path_coord <- paste(path_vect, "DescargaOvitrampasMesFco.txt", sep = "/")

# Paso 2. definir el resto de argumentos y aplicar la función
deneggs::eggs_risk(path_vect = path_vect,
                   path_coord = path_coord,
                   weeks = 25,
                   locality = c("Oaxaca De Juárez",
                                "Santa Lucía Del Camino"),
                   risk = FALSE)

3.1.3 Semana 30

Code
# Paso 1. definir la ruta de la carpeta
path_vect <- "/Users/felipedzul/Dropbox/CENAPRECE/2024/20_oaxaca"
path_coord <- paste(path_vect, "DescargaOvitrampasMesFco.txt", sep = "/")

# Paso 2. definir el resto de argumentos y aplicar la función
deneggs::eggs_risk(path_vect = path_vect,
                   path_coord = path_coord,
                   weeks = 30,
                   locality = c("Oaxaca De Juárez",
                                "Santa Lucía Del Camino"),
                   risk = FALSE)

3.1.4 Semana 30

Code
# Paso 1. definir la ruta de la carpeta
path_vect <- "/Users/felipedzul/Dropbox/CENAPRECE/2024/20_oaxaca"
path_coord <- paste(path_vect, "DescargaOvitrampasMesFco.txt", sep = "/")

# Paso 2. definir el resto de argumentos y aplicar la función
deneggs::eggs_risk(path_vect = path_vect,
                   path_coord = path_coord,
                   weeks = 40,
                   locality = c("Oaxaca De Juárez",
                                "Santa Lucía Del Camino"),
                   risk = FALSE)

3.2 2025

3.2.1 Semana 10

Code
# Paso 1. definir la ruta de la carpeta
path_vect <- "/Users/felipedzul/Dropbox/CENAPRECE/2025/20_oaxaca"
path_coord <- paste(path_vect, "DescargaOvitrampasMesFco.txt", sep = "/")

# Paso 2. definir el resto de argumentos y aplicar la función
deneggs::eggs_risk(path_vect = path_vect,
                   path_coord = path_coord,
                   weeks = 10,
                   locality = c("Oaxaca De Juárez",
                                "Santa Lucía Del Camino"),
                   risk = FALSE)

3.2.2 Semana 11

Code
# Paso 1. definir la ruta de la carpeta
path_vect <- "/Users/felipedzul/Dropbox/CENAPRECE/2025/20_oaxaca"
path_coord <- paste(path_vect, "DescargaOvitrampasMesFco.txt", sep = "/")

# Paso 2. definir el resto de argumentos y aplicar la función
deneggs::eggs_risk(path_vect = path_vect,
                   path_coord = path_coord,
                   weeks = 11,
                   locality = c("Oaxaca De Juárez",
                                "Santa Lucía Del Camino"),
                   risk = FALSE)

3.2.3 Semana 12

Code
# Paso 1. definir la ruta de la carpeta
path_vect <- "/Users/felipedzul/Dropbox/CENAPRECE/2025/20_oaxaca"
path_coord <- paste(path_vect, "DescargaOvitrampasMesFco.txt", sep = "/")

# Paso 2. definir el resto de argumentos y aplicar la función
deneggs::eggs_risk(path_vect = path_vect,
                   path_coord = path_coord,
                   weeks = 12,
                   locality = c("Oaxaca De Juárez",
                                "Santa Lucía Del Camino"),
                   risk = FALSE)

4 Mapa del Riesgo Entomológico de Huevos

4.1 2024

4.1.1 Semana 10

Code
# Paso 1. definir la ruta de la carpeta
path_vect <- "/Users/felipedzul/Dropbox/CENAPRECE/2024/20_oaxaca"
path_coord <- paste(path_vect, "DescargaOvitrampasMesFco.txt", sep = "/")

# Paso 2. definir el resto de argumentos y aplicar la función
deneggs::eggs_risk(path_vect = path_vect,
                   path_coord = path_coord,
                   weeks = 12,
                   locality = c("Oaxaca De Juárez",
                                "Santa Lucía Del Camino"),
                   risk = TRUE)

4.1.2 Semana 25

Code
# Paso 1. definir la ruta de la carpeta
path_vect <- "/Users/felipedzul/Dropbox/CENAPRECE/2024/20_oaxaca"
path_coord <- paste(path_vect, "DescargaOvitrampasMesFco.txt", sep = "/")

# Paso 2. definir el resto de argumentos y aplicar la función
deneggs::eggs_risk(path_vect = path_vect,
                   path_coord = path_coord,
                   weeks = 25,
                   locality = c("Oaxaca De Juárez",
                                "Santa Lucía Del Camino"),
                   risk = TRUE)

4.1.3 Semana 30

Code
# Paso 1. definir la ruta de la carpeta
path_vect <- "/Users/felipedzul/Dropbox/CENAPRECE/2024/20_oaxaca"
path_coord <- paste(path_vect, "DescargaOvitrampasMesFco.txt", sep = "/")

# Paso 2. definir el resto de argumentos y aplicar la función
deneggs::eggs_risk(path_vect = path_vect,
                   path_coord = path_coord,
                   weeks = 30,
                   locality = c("Oaxaca De Juárez",
                                "Santa Lucía Del Camino"),
                   risk = TRUE)

4.1.4 Semana 30

Code
# Paso 1. definir la ruta de la carpeta
path_vect <- "/Users/felipedzul/Dropbox/CENAPRECE/2024/20_oaxaca"
path_coord <- paste(path_vect, "DescargaOvitrampasMesFco.txt", sep = "/")

# Paso 2. definir el resto de argumentos y aplicar la función
deneggs::eggs_risk(path_vect = path_vect,
                   path_coord = path_coord,
                   weeks = 40,
                   locality = c("Oaxaca De Juárez",
                                "Santa Lucía Del Camino"),
                   risk = TRUE)

4.2 2025

4.2.1 Semana 10

Code
# Paso 1. definir la ruta de la carpeta
path_vect <- "/Users/felipedzul/Dropbox/CENAPRECE/2025/20_oaxaca"
path_coord <- paste(path_vect, "DescargaOvitrampasMesFco.txt", sep = "/")

# Paso 2. definir el resto de argumentos y aplicar la función
deneggs::eggs_risk(path_vect = path_vect,
                   path_coord = path_coord,
                   weeks = 10,
                   locality = c("Oaxaca De Juárez",
                                "Santa Lucía Del Camino"),
                   risk = TRUE)

4.2.2 Semana 11

Code
# Paso 1. definir la ruta de la carpeta
path_vect <- "/Users/felipedzul/Dropbox/CENAPRECE/2025/20_oaxaca"
path_coord <- paste(path_vect, "DescargaOvitrampasMesFco.txt", sep = "/")

# Paso 2. definir el resto de argumentos y aplicar la función
deneggs::eggs_risk(path_vect = path_vect,
                   path_coord = path_coord,
                   weeks = 11,
                   locality = c("Oaxaca De Juárez",
                                "Santa Lucía Del Camino"),
                   risk = TRUE)

4.2.3 Semana 12

Code
# Paso 1. definir la ruta de la carpeta
path_vect <- "/Users/felipedzul/Dropbox/CENAPRECE/2025/20_oaxaca"
path_coord <- paste(path_vect, "DescargaOvitrampasMesFco.txt", sep = "/")

# Paso 2. definir el resto de argumentos y aplicar la función
deneggs::eggs_risk(path_vect = path_vect,
                   path_coord = path_coord,
                   weeks = 12,
                   locality = c("Oaxaca De Juárez",
                                "Santa Lucía Del Camino"),
                   risk = TRUE)